\begin{tabbing}
(\=(UnivCD) \+
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN ((MoveToConcl ({-}1)) 
\\[0ex]CollapseTHEN ((
\-\\[0ex]R\=epUR ``do{-}apply can{-}apply p{-}compose`` ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN (((GenConclAtAddr [1;1;1;1;1]
\-\\[0ex])\= \+
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN ((D ({-}2)$\cdot$) 
\\[0ex]CollapseTHEN ((Reduce 0) 
\\[0ex]
\\[0ex]CollapseTHEN (Auto$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$
\-
\end{tabbing}